home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / a_to_d / dbplus2 / subcat.dfm / subcat.txt
Encoding:
Text File  |  1996-09-15  |  2.0 KB  |  112 lines
  1. object SubCatDlg: TSubCatDlg
  2.   Left = 243
  3.   Top = 130
  4.   ActiveControl = OKBtn
  5.   BorderStyle = bsDialog
  6.   Caption = 'Cuisine Dialog'
  7.   ClientHeight = 179
  8.   ClientWidth = 388
  9.   Font.Color = clBlack
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = [fsBold]
  13.   PixelsPerInch = 96
  14.   Position = poScreenCenter
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Bevel1: TBevel
  18.     Left = 8
  19.     Top = 8
  20.     Width = 281
  21.     Height = 161
  22.     Shape = bsFrame
  23.     IsControl = True
  24.   end
  25.   object Label1: TLabel
  26.     Left = 38
  27.     Top = 56
  28.     Width = 71
  29.     Height = 13
  30.     Caption = 'Cuisine ID #'
  31.   end
  32.   object Label2: TLabel
  33.     Left = 31
  34.     Top = 99
  35.     Width = 78
  36.     Height = 13
  37.     Caption = 'Cuisine Name'
  38.   end
  39.   object OKBtn: TBitBtn
  40.     Left = 300
  41.     Top = 32
  42.     Width = 77
  43.     Height = 27
  44.     TabOrder = 2
  45.     Kind = bkOK
  46.     Margin = 2
  47.     Spacing = -1
  48.     IsControl = True
  49.   end
  50.   object CancelBtn: TBitBtn
  51.     Left = 300
  52.     Top = 76
  53.     Width = 77
  54.     Height = 27
  55.     TabOrder = 3
  56.     Kind = bkCancel
  57.     Margin = 2
  58.     Spacing = -1
  59.     IsControl = True
  60.   end
  61.   object HelpBtn: TBitBtn
  62.     Left = 300
  63.     Top = 120
  64.     Width = 77
  65.     Height = 27
  66.     TabOrder = 4
  67.     Kind = bkHelp
  68.     Margin = 2
  69.     Spacing = -1
  70.     IsControl = True
  71.   end
  72.   object DBEditSubCatName: TDBEdit
  73.     Left = 128
  74.     Top = 95
  75.     Width = 121
  76.     Height = 20
  77.     DataField = 'SubCatName'
  78.     DataSource = DataSourceSubCat
  79.     MaxLength = 0
  80.     TabOrder = 1
  81.   end
  82.   object DBLookupComboPlus1: TDBLookupComboPlus
  83.     Left = 129
  84.     Top = 50
  85.     Width = 121
  86.     Height = 21
  87.     DataField = 'SubCatNum'
  88.     DataSource = DataSourceSubCat
  89.     LookupSource = DataSourceSubCat2
  90.     LookupDisplay = 'SubCatNum'
  91.     LookupField = 'SubCatNum'
  92.     Style = csIncSrchEdit
  93.     TabOrder = 0
  94.   end
  95.   object DataSourceSubCat: TDataSource
  96.     Left = 8
  97.     Top = 40
  98.   end
  99.   object TableSubCat2: TTable
  100.     Active = True
  101.     DatabaseName = 'Beta'
  102.     TableName = 'SUBCAT.DB'
  103.     Left = 8
  104.     Top = 72
  105.   end
  106.   object DataSourceSubCat2: TDataSource
  107.     DataSet = TableSubCat2
  108.     Left = 8
  109.     Top = 104
  110.   end
  111. end
  112.